home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / load address.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  760b  |  35 lines
  1. 10 REM THIS PROGRAM GIVES THE LOAD
  2. 20 REM ADDRESS OF A FILE IN BOTH
  3. 30 REM DECIMAL AND HEX
  4. 40 REM
  5. 50 REM DONE ON C-64, BUT MAY WORK ON
  6. 60 REM OTHER MACHINES.
  7. 70 REM
  8. 80 PRINT"[147]DISPLAY 'LOAD ADDRESS' OF A FILE"
  9. 90 PRINT"(BY BRIAN HINZ)
  10. 100 [133]"FILE NAME";F$
  11. 105 [139]F$[178]""[167]100
  12. 110 [159]15,8,15
  13. 120 [159]8,8,8,(F$)
  14. 130 [141]270
  15. 140 [161]#8,L$:[161]#8,H$
  16. 150 [160]8:[160]15
  17. 160 L[178][198](L$[170][199](0))
  18. 170 H[178]([198](H$[170][199](0)))[172]256
  19. 180 [153]"LOAD ADDRESS:  DECIMAL ";H[170]L
  20. 190 HE$[178]"0123456789ABCDEF"
  21. 200 DE[178]H[170]L
  22. 210 H$[178]"":[129]M[178]3[164]0[169][171]1:N%[178]DE[173](16[174]M):DE[178]DE[171]N%[172]16[174]M:H$[178]H$[170][202](HE$,N%[170]1,1):[130]
  23. 220 [153] [163]15)"HEX     $";H$
  24. 230 [128]
  25. 240 [143]******************************
  26. 250 [143] READ ERROR CHANNEL
  27. 260 [143]******************************
  28. 270 [132]15,E1,A$,E2,E3
  29. 280 [139]E1[178]0[167] [142]
  30. 290 [153]"DISK ERRORWAIT";E1;A$;E2;E3
  31. 300 [153]"PROGRAM ABORTED"
  32. 310 [160] 8
  33. 320 [160] 15
  34. 330 [128]
  35.